;PK Arena and Hell Scenes, by Spike

SCENE	5000	PKThrone, SCENE, "PK Castle Throne"
ACTOR	1, "Spike", Spike, 1, 50, 50
ACTOR	2, "Manda", Manda, 1, 17, 71
IF	T#<kailu>, @Sindeed
STRCMP #<str.soul>, "7FAEA13A"
IF= @Spike
STRCMP #<str.soul>, "SOUL 2060"
IF= @Spike
1: Hi there!
2: Welcome to the PK Castle!
1: This is the number one place to challenge your friends to duels!
2: Yeah, not to mention the fact you can have duels between pets here, too!
1: Check out the Information booth to find out more!
END
@Spike
MOVE	1, -5, 71, 1
2: Oh, hello, you stud!
2: Since you're so godlike, how about a class worthy of such godlihood?
SET	num.HostClass, 20
2: Tee hee!
GIVE	T2298
SET	kailu, "2298"
END
@Sindeed
MOVE	1, -5, 50, 1
2: Here, have some cheese!
GIVE	H32000
GIVE	M32000
END


;-----
SCENE	5001	PKBooth, SCENE, "Information Lobby"
ACTOR	1, "STeeLFuSiOn", joshTownsfolk, 24, 17, 71
1: Hi there! Welcome to the PK Castle!
1: Here in the PK Castle, you can battle your friends and enemies.
1: Going to the right exit will take you to the PK Arena, where you can fight human opponents.
1: Taking the left exit leads to the Pet Arena. Humans can't fight there, but Pets can.
1: Have fun fighting in the PK Arena!
END
;-----
SCENE	5002	PKHealing, SCENE, "Healing Spring", 2, 0
N: Hp and Mp Restored!
WAIT	2
N: Get back out there and fight!
GIVE	L1
GIVE	H32000
GIVE	M32000
END
;-----
SCENE	5003	Black, SCENE, "Hell"
ACTOR	1, "Cerberus", Cerberus, 1, 17, 71
1: ...So, you're here...
1: Welcome to the land of no return.
1: The Holy Hells is your punishment for trying to cheat or hack.
1: You might have tried to get into the Beta Tester's benefits, or maybe you even thought you'd cheat yourself some easy money.
1: Hell, you might have even modded Judgement to try and make things better for yourself.
1: Well, you know what?
1: !I WON'T HAVE THAT CRAP!
1: So, because the scripts detected you as a threat, this is your new home.
1: I'd be an asshole and tell you to go to hell, but...
1: !YOU'RE ALREADY THERE!
1: MWAHAHAHAHAHAHAHA!
1: Have fun in Hell, cheater!
GOTO	EXIT
@TSY0
ACTOR	1, "Your God", Spike, 1, 17, 71
1: Baha, Terence. You don't deserve a world as sovereign as this.
1: Have fun in hell.
GOTO	EXIT
END
@Sgo
ACTOR	1, "Your God", Spike, 1, 17, 71
1: Hi Erika. Remember how you were a bitch to me?
1: Well, this is my form of being a bitch to you.
1: Have a nice day in hell, you whore.
GOTO	EXIT
END
END
;-----
SCENE	10000	Black, SCENE, "Warp Stone"
COUNTDOWN	0
TAKE	T88
COMPARE	#<num.mapnum>, 43
IF<	@Northrend
COMPARE	#<num.mapnum>, 66
IF=	@Northrend
COMPARE	#<num.mapnum>, 118
IF<	@Tolshroud
GOTO	LINK	141, 2
@End
END
@Northrend
GOTO	LINK	9, 0
END
@Tolshroud
GOTO	LINK	117, 0
END
;------
SCENE	10001	Farlia3, SCENE, "Docks"
ACTOR	1, "Dirtybeard", josh57, 1, 17, 71
IF	#47, @Mountains
IF	#54, @Talroa
IF	#78, @Farlia
IF	#96, @Wildern
IF	#119, @AtSousen
END
@Mountains
SET	TalroaPrice, "1000"
SET	FarliaPrice, "2000"
SET	WildernPrice, "4000"
1: Arr! Where'd ye like to go today, matey?
@Menu1
MENU	"Talroa- #<TalroaPrice> Septi=@GoTalroa", "Farlia- #<FarliaPrice> Septi=@GoFarlia", "Wildern- #<WildernPrice> Septi=@GoWildern", "Cancel=@end"
GOTO	@menu1
@Talroa
SET	MountainPrice, "1000"
SET	FarliaPrice, "1000"
SET	WildernPrice, "3000"
1: Arr! Where'd ye like to go today, matey?
@Menu2
MENU	"Tolshroud Mountains- #<MountainPrice> Septi=@GoMountains", "Farlia- #<FarliaPrice> Septi=@GoFarlia", "Wildern- #<WildernPrice> Septi=@GoWildern", "Cancel=@end"
GOTO	@menu2
@Farlia
SET	MountainPrice, "2000"
SET	TalroaPrice, "1000"
SET	WildernPrice, "2000"
1: Arr! Where'd ye like to go today, matey?
@Menu3
MENU	"Tolshroud Mountains- #<MountainPrice> Septi=@GoMountains", "Talroa- #<TalroaPrice> Septi=@GoTalroa", "Wildern- #<WildernPrice> Septi=@GoWildern", "Canel=@end"
GOTO	@Menu3
@Wildern
IF T56+T65+T76, @Sousen
SET	MountainPrice, "4000"
SET	TalroaPrice, "2000"
SET	FarliaPrice, "1000"
1: Arr! Where'd ye like to go today, matey?
@menu4
MENU	"Tolshroud Mountains- #<MountainPrice> Septi=@GoMountains", "Talroa- #<TalroaPrice> Septi=@GoTalroa", "Farlia- #<FarliaPrice> Septi=@GoFarlia", "Cancel=@end"
GOTO	@menu4
@wildern2
SET MountainPrice, "4000"
SET TalroaPrice, "2000"
SET FarliaPrice, "1000"
SET SousenPrice, "10000"
1: Arr, matey, I found me a way through the Paladin barricade and can get to Sousen without incident now!
@menu5
MENU	"Tolshroud Mountains- #<MountainPrice> Septi=@GoMountains", "Talroa- #<TalroaPrice> Septi=@GoTalroa", "Farlia- #<FarliaPrice> Septi=@GoFarlia", "Sousen- #<SousenPrice> Septi=@GoSousen", "Cancel=@end"
GOTO	@menu5
@AtSousen
SET WildernPrice, "10000"
1: Arr, if you'd like to return to Wildern, I can get you back for #<WildernPrice> Septi.
1: How 'bout it, matey?
@menu6
MENU	"Yes=@GoWildern", "No=@end"
GOTO @menu6
@GoMountains
IF	-G#<MountainPrice>, @noMoney
TAKE	G#<MountainPrice>
GOTO	LINK	47, 1
@GoTalroa
IF	-G#<TalroaPrice>, @noMoney
TAKE	G#<TalroaPrice>
GOTO	LINK	54, 4
@GoFarlia
IF	-G#<FarliaPrice>, @noMoney
TAKE	G#<FarliaPrice>
GOTO	LINK	78, 2
@GoWildern
IF	-G#<WildernPrice>, @noMoney
TAKE	G#<WildernPrice>
GOTO	LINK	96, 1
@GoSousen
IF -G#<SousenPrice>, @NoMoney
TAKE	G#<SousenPrice>
GOTO	LINK	119, 0
@end
END
@noMoney
1: Sorry, matey. No Septi, no ship!
END
@Sousen
IF T79, @wildern2
IF T77, @hasT77
ACTOR 2, "Kinomu", kinomu, 1, 50, 71
MOVE 2, 49, 71
1: Are ye mad, matey? Them seas out there be crawlin' with Order of the Hand.
1: Those crazy paladins attack anyone not flyin' their own colours.
1: Crazier than pirates, they arrrrrrr.
2: Nevertheless, my associate %1 and I require access to the Rinpuu continent.
2: You could even drop us off at Sousen, if you're so inclined.
1: Sousen!? Ye ARE mad!
1: But, aye, I've been workin' on me ship lately, and let me tell ye, she's a real beauty.
1: I think I can outrun them paladin scallywags but ye may need to fight a few off first, arrr.
2: I believe these terms are acceptable.
MOVE 2, 50, 71
2: %1! I trust you've heard our conversation.
2: Thanks to Dirtybeard here, we've secured access to the southern continent via the Sousen area.
2: Let me forewarn you though, in the old Tolarian language, "Sousen" means "Shrouded".
2: It's been covered in a thick fog for the past 2000 years, and the monsters there are fierce!
2: So, please ensure that you're prepared. Dirtybeard and I will wait for you here.
GIVE T77
END
@hasT77
1: Arrrrrr you ready ta' board the ship to Sousen matey?
@menu
MENU	"Yes=@yep", "No=@nope"
GOTO @menu
@yep
1: Aye, climb aboard, matey. Kinomu's already on board.
GOTO SCENE	10002
@nope
1: Arrr, well, hurry yer ass up, landlubber.
END

SCENE	10002 AboardShip, SCENE, "Aboard the Ship"
MUSIC	Inside4.mid
IF T78, @hasT78
ACTOR 1, "Kinomu", kinomu, 1, 17, 71 
1: Well, %1, we're finally on the way to Sousen...
1: I see the fog is really thick, even this far away.
1: Hmm... off in the distance, are those Order ships?
ACTOR	2, "Dirtybeard", josh57, 1, 91, 71
MOVE 2, 75, 71
MUSIC	Dark3.mid
2: Mateys, we've got company!
2: Think ye can fight off these Paladin landlubbers until we can break away?
1: Don't worry. We can take care of the Paladins, you just get us out of here!
MOVE 1, -1, -1, 1
MOVE 2, -1, -1, 1
COUNTDOWN  300
FIGHT 155, -105
IF DEAD, @lost
IF XP, @won
@cdloop
FIGHT 155
IF DEAD, @lost
IF XP, @won
GOTO @cdloop
@lost
MUSIC Lost.mid
H: I'm sorry... I can't.. go on.
WAIT 2
N: And so... The three men were lost at sea, and never found...
GOTO EXIT
@won
MUSIC	Inside4.mid
GIVE T78
@hasT78
ACTOR	2, "Dirtybeard", josh57, 1, 99, 71
MOVE 2, 75, 71
H: We did it...
2: And look! Sousen is just up ahead!
2: Land ho!
2: Aye, when ye make landfall, head north through the marshlands, and you'll see a town...
2: The only town in Sousen... Uluein.
GIVE	T79
GOTO LINK 119, 0
END
;-----
;Yup. Comments are fun.
